PC Answers 1998 January/PC Answers Issue 49 Cover CD January 1998.iso/Apps/Director/DATA.Z/Widget Wizard.dir/WidgtBehaviors_23_Send All Sprites.ls

Text File | 1997-05-10 | 932 b | 46 lines

property whichevent, EventToSend

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #whichevent, [#default: #mouseUp, #format: #symbol, #comment: "On Which Event:", #range: [#mouseUp, #mouseDown, #enterFrame, #exitFrame]])
  addProp(description, #EventToSend, [#default: #generic_event, #format: #symbol, #comment: "Event To Send:"])
  return description
end

on getBehaviorDescription
  return "Send an event to all sprites"
end

on getAssocMembers
  set myPropList to []
  return myPropList
end

on do_it me
  sendAllSprites(the EventToSend of me)
end

on mouseUp me
  if the whichevent of me = #mouseUp then
    do_it(me)
  end if
end

on mouseDown me
  if the whichevent of me = #mouseDown then
    do_it(me)
  end if
end

on enterFrame me
  if the whichevent of me = #enterFrame then
    do_it(me)
  end if
end

on exitFrame me
  if the whichevent of me = #exitFrame then
    do_it(me)
  end if
end